5 POKE56,56:CLR
6 DV=PEEK(186):IFDV<8THENDV=8
8 DIMW$(300),RW(12),CM,H,I,J,K,L,M,T,U,V,X,Y,Z,XX,YY,FG,CO,D,W,SC,WW
10 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
11 SYS57812"CFONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
12 SYS57812"INP/CM CE00",DV,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
16 SYS52736,"CRYPTDATA 98",DV
18 H=PEEK(252)*256+PEEK(251)
19 GOTO100
20 POKE646,4
21 POKE214,Y:PRINT:PRINTTAB(X)"[177]"LEFT$(H$,XX+1)"[179]"
22 FORI=1TOYY:PRINTTAB(X)"[180][146]"LEFT$(SP$,XX)"[180]":NEXT
23 PRINTTAB(X)"[181]"LEFT$(H$,XX+1)"[182]"
24 POKE214,Y+1:PRINT:PRINTTAB(X+2);
25 RETURN
30 POKE214,23:PRINT
32 PRINT"   [193]NY KEY [155]- MORE    [210][197][212][213][210][206] [155]- MENU[145]":POKE198,0
34 GETA$:IFA$=""THEN34
36 FG=0:IFA$=CHR$(13)THENFG=1
38 RETURN
40 SYSCM,1024,16384,1000
42 SYSCM,55296,17384,1000
44 RETURN
45 SYSCM,16384,1024,1000
46 SYSCM,17384,55296,1000
47 RETURN
50 X=14:XX=13:Y=9:YY=5:GOSUB20
52 PRINT"[150]  "R$
54 PRINTTAB(16)"[159][208]RESS A KEY":POKE198,0
56 GETA$:IFA$=""THEN56
58 RETURN
100 PRINT"[147]":CM=53176
102 FORI=1TO5:READM$(I):NEXT
103 DATA"    [208]LAY [195][210][217][208][212][207][199][210][201][196]
104 [131]"  (null)ULES OF LEN(null)(null)(null)(null)(null)CHR$(null)RIGHT$STR$
105 DATA" [200]OW TO [211]OLVE [195]RYPTICS
106 [131]"  LEN(null)(null)(null)(null)(null)CHR$(null)RIGHT$STR$ (null)OLUTION
107 DATA"   [210]ETURN TO [204][207][193][196][211][212][193][210]
110 H$[178]"======================================"
111 C$[178]"GETNEWTAB(CMDCMDCMDTOTOTOCMDCMDCMDSPC(THENNOT"
112 CB$[178]"STEP+-CMDCMDCMD//CMDCMDCMD^ANDOR"
113 D$[178]"-------------------"
114 [150] [165]R(X)[178][181]([187](.)[172]X)
115 [129]I[178]0[164]3:[135]DX(I),DY(I):[130]
116 [131]0,-1,1,0,0,1,-1,0
117 SP$[178]"                                      ON"
118 [129]I[178]100[164]140:[139]W$(I)[178]"*"[167]U[178]I[171]3:I[178]140
119 [130]
120 [151]53272,31
122 [129]I[178]0[164]4:[135]VW$(I):[130]
123 [131]"ATN","VAL","RIGHT$","(null)","(null)"
150 [153]"LOAD":X[178]8:XX[178]23:Y[178]3:YY[178]14:[141]20
152 [153]"FOR LEN (null) (null) (null) (null) (null) CHR$ (null) RIGHT$ STR$CONT"
154 [129]I[178]1[164]5:[153][163]9)M$(I):[153]:[130]
160 M[178]1:W[178]0:SC[178]100:[129]I[178]1[164]10:RW(I)[178]0:[130]
162 [151]214,6[170]M[172]2:[153]:[153][163]9)""M$(M)"ON":[151]198,0
164 [161]A$:[139]A$[179][177]""[175]A$[179][177]"ON"[175]A$[179][177][199](13)[167]164
166 [139]A$[178][199](13)[167]180
168 [153][163]9)"CONT"M$(M)
170 [139]A$[178]"ON"[167]M[178]M[171]1:[139]M[179]1[167]M[178]5
172 [139]A$[178]""[167]M[178]M[170]1:[139]M[177]5[167]M[178]1
174 [137]162
180 [145]M[141]200,800,400,450,900
182 [137]162
200 [153]"LOAD"
202 X[178]1:XX[178]21:Y[178]0:YY[178]19:[141]20
204 [153]"OPEN"
220 X[178]25:XX[178]12:Y[178]0:YY[178]2:[141]20
221 [153]"OPEN(null)(null)ATNSTR$(null)(null)ATN(null)'(null)":[153][163]27)"LEN(null)(null)(null)(null)(null)CHR$(null)RIGHT$STR$"
223 X[178]25:XX[178]12:Y[178]10:YY[178]9:[141]20
224 [153][163]27)"LIST(null)CORE:    CMDCMDCMDCMD"SC
226 [153][163]27)"ASC1 CONT- LEFT$INT
228 PRINTTAB(27)"[198]3 [154]- [206]EXT
229 [153][163]27)"ASC5 CONT- (null)ULES
230 PRINTTAB(27)"[198]7 [154]- [209]UIT
232 [129]I[178]0[164]4:[129]J[178]0[164]4
234 [151]214,1[170]I[172]4:[153]"":[153][163]3[170]J[172]4)C$
236 [130]:[130]
238 [129]I[178]0[164]10:FM(I)[178]0:[130]
239 W[178]W[170]1:[139]RW(W)[175]W[179]11[167]239
240 [139]W[177]10[167]324
241 L[178][195](W$(U[170]W[172]4)):AN$[178]""
242 [151]214,5:[153]:[153][163]25)[200](SP$,13):[153][163]25)[200](SP$,13)
243 TB[178]32[171][181](L[173]2):[151]214,6:[153]"LIST":[153][163]TB)[200](D$,L)
244 [151]214,22:[153]"LIST":[153]SP$:[153]" "W$(U[170]1[170]4[172]W):[153]SP$:[153]" "W$(U[170]2[170]W[172]4)""
246 [151]214,8:[153]:[153][163]29)"LIST(null)(null)(null)STR$   CMDCMDCMD"W
250 X[178][165]R(5)[170]1:Y[178][165]R(5)[170]1:[129]I[178]1[164]5:[129]J[178]1[164]5:XP$(I,J)[178]" ":[130]:[130]
252 XP$(X,Y)[178][200](W$(U[170]W[172]4),1)
253 XM(1)[178]X:YM(1)[178]Y
254 [129]I[178]2[164]L
256 WO$[178][202](W$(U[170]W[172]4),I,1)
257 ZZ[178]0
258 D[178][165]R(4)
260 [139]XP$(X[170]DX(D),Y[170]DY(D))[179][177]" "[167]264
262 X[178]X[170]DX(D):Y[178]Y[170]DY(D):XP$(X,Y)[178]WO$:XM(I)[178]X:YM(I)[178]Y
263 [137]268
264 ZZ[178]ZZ[170]1:[139]ZZ[177]20[167]I[178]L:[130]:[137]250
266 [137]258
268 [130]:[153]""
270 [129]I[178]0[164]4:[129]J[178]0[164]4
271 [139]XP$(J[170]1,I[170]1)[179][177]" "[167]274
272 XP$(J[170]1,I[170]1)[178][199](193[170][165]R(26))
273 [139][165]R(4)[178]1[167]XP$(J[170]1,I[170]1)[178]VW$([165]R(5))
274 [151]214,I[172]4[170]2:[153]:[153][163]J[172]4[170]4)""XP$(J[170]1,I[170]1):[130]:[130]:WW[178]1
276 [151]214,12:[153]:[153][163]33)"    CMDCMDCMDCMD"SC
278 [151]214,5:[153]:[153][163]TB[171]1[170]WW)" CMD";:[129]T[178]1[164]100:[130]
279 [153]"WAIT ":[129]T[178]1[164]100:[130]
280 [161]A$:[139]A$[178]""[167]278
282 [139]A$[179][177][199](133)[167]289
284 [151]214,(YM(WW)[171]1)[172]4[170]1:[153]:[153][163](XM(WW)[171]1)[172]4[170]3)""CB$:FM(WW)[178]1
286 [139]SC[177]0[167]SC[178]SC[171]2
288 A$[178][202](W$(U[170]4[172]W),WW,1):[137]300
289 [139]A$[179][177][199](20)[167]293
290 [139]FM(WW[171]1)[176]WW[178]1[167]280
291 AN$[178][200](AN$,[195](AN$)[171]1):WW[178]WW[171]1:[151]214,5:[153]"SYS":[153][163]TB[171]1[170]WW)"  "
292 [137]280
293 [139]A$[178][199](134)[167]232
294 [139]A$[178][199](135)[167][141]800:[137]280
295 [139]A$[178][199](136)[167]150
296 [139]A$[177][178]"A"[175]A$[179][178]"Z"[167]A$[178][199]([198](A$)[170]128):[137]300
297 [139]A$[177][178]"ATN"[175]A$[179][178]"(null)"[167]300
298 [137]280
300 [151]214,5:[153]"SYS":[153][163]TB[171]1[170]WW)A$:AN$[178]AN$[170]A$:A$[178]""
302 WW[178]WW[170]1
304 [139]WW[178][179]L[167]276
308 [141]40
310 [139]AN$[178]W$(U[170]W[172]4)[167]RW(W)[178]1:R$[178]"(null)IGHTO!":[137]320
312 R$[178]"(null)RONGO!"
320 [141]50:[141]45
322 [151]214,12:[153]:[153][163]33)"    CMDCMDCMDCMD"SC
324 [129]I[178]1[164]10:[139]RW(I)[178]0[167]I[178]10:[130]:[137]328
326 [130]:[137]350
328 [139]W[177][178]10[167]W[178]0
330 [137]232
350 X[178]8:XX[178]23:Y[178]6:YY[178]8:[141]20
352 [153]"CONT  (null)OUR SCORE WAS"SC"CONT"
354 [139]SC[179]100[167]360
356 [153][163]10)"LENONGRATULATIONS!  (null)OU
358 PRINTTAB(10)"MADE A PERFECT SCORE!":GOSUB54:GOTO150
360 IFSC<80THEN366
362 PRINTTAB(10)"[206]OT BAD!  [217]OU DIDN'T
364 [153][163]10)"NEED TOO MANY HINTS.":[141]54:[137]150
366 [153][163]10)"(null)EEP TRYING! LENRYPTICS
368 PRINTTAB(10)"GET EASIER EACH TIME.":GOSUB54:GOTO150
400 GOSUB40
410 PRINT"[147][159]":FORI=1TO99
412 IFW$(I)<>"\"THEN418
414 GOSUB30:IFFGTHENI=99:NEXT:GOSUB45:RETURN
416 PRINT"[147][159]":I=I+1
418 PRINT" "W$(I)
420 NEXT
422 GOSUB30:IFFGTHENI=99:GOSUB45:RETURN
424 GOTO410
450 GOSUB40:I=0
452 PRINT"[147]"
454 PRINT""W$(U+4+I*4)
456 PRINT"[154] "W$(U+5+I*4)
458 PRINT" "W$(U+6+I*4)
460 PRINT"[159]  "W$(U+7+I*4)
462 PRINT
464 I=I+1:IFI/4<>INT(I/4)THEN454
466 GOSUB30:IFFGTHENGOSUB45:RETURN
468 IFI<10THEN452
470 I=0:GOTO452
800 GOSUB40:X=3:XX=32:Y=2:YY=15:GOSUB20
812 PRINTTAB(5)"[159]  [200]IDDEN IN THE GRID IS THE
814 [153][163]5)"WORD DEFINED BY THE CRYPTIC
815 PRINTTAB(5)"CLUE BELOW THE GRID.  [212]HE
816 [153][163]5)"WORD MAY 'SNAKE' AROUND BUT
817 PRINTTAB(5)"IT WILL NOT MOVE DIAGONALLY.
818 [153][163]5)"  VALNTER THE WORD BY TYPING IT.
820 PRINTTAB(5)"[217]OU CAN REVEAL A LETTER BY
822 [153][163]5)"PRESSING ASC1, BUT IT WILL COST
824 PRINTTAB(5)"YOU 2 POINTS.  [208]ERFECT SCORE
826 [153][163]5)"IS 100 -- NO HINTS.
828 PRINTTAB(5)"  [203]EEP GOING THROUGH THE WORDS
830 [153][163]5)"TILL YOU GET THEM ALL RIGHT.
832 PRINTTAB(14)"[155][208]RESS A KEY
840 [161]A$:[139]A$[178]""[167]840
842 [141]45:[142]
900 [141]40:X[178]4:XX[178]31:Y[178]9:YY[178]3:[141]20
902 [153]"CONT (null)(null)RIGHT$(null)?  ATNRE YOU SURE?  (YCONT/NCONT)"
904 [161]A$:[139]A$[178]""[167]904
906 [139]A$[179][177]"Y"[167][141]45:[142]
908 [153]"LOAD":[151]53272,21
910 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
920 [139]ER[179][177]63[167][128]
930 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
940 [153]"RUN"
950 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:CRYPTOGRID 98":[160]15:[148]"CRYPTOGRID 98",8:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"LEN (null) (null) (null) (null) (null) CHR$ (null) RIGHT$ STR$":Z$(1)[178]"BY ASCENDER (null)UCKER
60040 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]